home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / AddOns / BenchTrash / Install_BenchTrash < prev    next >
Text File  |  2000-05-16  |  14KB  |  413 lines
  1. ; $VER: Install_BenchTrash 40.4 (28th February 1998)
  2. ; Script to install BenchTrash version 1.24 and up
  3. ; © 1997,98 THOR - Software
  4. ;
  5. ; The installer software is copyrighted © 1993 CBM
  6. ;
  7.  
  8. ; tell the user that we're 0% done
  9. (complete 0)
  10.  
  11. ;=============================================================================
  12. ; useful procedure
  13.  
  14. (procedure TERMINATE (makeassign "..BenchTrash..")
  15.  
  16. )
  17.  
  18. ;==========================================================================
  19. ; termination stuff
  20.  
  21. (onerror (TERMINATE))
  22.  
  23. ;==========================================================================
  24. ; get current WB version
  25. (set #version (/ (getversion "LIBS:version.library") 65536))
  26.  
  27. ;get language specific strings
  28. ;==========================================================================
  29. ; English strings
  30.  
  31. (set default_lang 4)
  32.  
  33. (set #yes "Yes")
  34. (set #no  "No")
  35.  
  36. (set #which-disk
  37. (cat "Where should I install BenchTrash?"
  38. ))
  39.  
  40. (set #which-disk-help
  41. (cat "This section lets you choose where the "
  42.      "the BenchTrash program should go. It defaults to "
  43.      "the SYS:WBStartup drawer so this program gets "
  44.      "launched during booting.\n"
  45.      "No drawer will be created.\n\n"
  46.      @askdir-help
  47. ))
  48.  
  49. (set #move-old-1
  50. (cat "Copy"
  51. ))
  52.  
  53. (set #move-old-2
  54. (cat "Skip"
  55. ))
  56.  
  57.  
  58. (set #bt-newicons
  59. (cat "Shall I install the NewIcons version of BenchTrash?"
  60. ))
  61.  
  62. (set #bt-newicons-help
  63. (cat "You may choose here to install a better looking NewIcons "
  64.      "version of the BenchTrash icon. This requires, however, the "
  65.      "newicons.library, but looks better for screens with more "
  66.      "colors. Thanks to Claudio Pucci for drawing this icon."
  67. ))
  68.  
  69. (set #trash-newicons
  70. (cat "Shall I install the NewIcons version of the Trashcan icon?"
  71. ))
  72.  
  73. (set #trash-newicons-help
  74. (cat "You may choose here to install a better looking NewIcons "
  75.      "version of the Trashcan icon, to replace the usual icon "
  76.      "stored in Trashcan.info that comes with the workbench.\n"
  77.      "This requires, however, the "
  78.      "newicons.library, but looks better for screens with more "
  79.      "colors. Thanks to Claudio Pucci for drawing this icon."
  80. ))
  81.  
  82. (set #do-locale
  83. (cat    "Which languages do you want to install?"
  84. ))
  85.  
  86. (set #locale-help
  87. (cat    "BenchTrash can be localized to various languages. "
  88.         "Please select the languages you want to install."
  89.         "English is built in, btw."
  90. ))
  91.  
  92. (set #copy-help
  93. (cat    "O.K. to install the BenchTrash Guide?"
  94. ))
  95.  
  96. (set #copy-help-help
  97. (cat    "The BenchTrash guide is a documentation of "
  98.         "the BenchTrash program.\n"
  99.         "If you aren't "
  100.         "really low on disk space, you should install it."
  101. ))
  102.  
  103. (set #help-dir
  104. (cat    "Please select the drawer to install the help-guide:"
  105. ))
  106.  
  107. (set #help-help
  108. (cat    "BenchTrash comes with an online help guide, using Commodore's "
  109.         "AmigaGuide or MultiView program. Please select the drawer to copy "
  110.         "this database to."
  111. ))
  112.  
  113.  
  114. (set #browser-where
  115. (cat    "Please locate your favorite AmigaGuide browser:"
  116. ))
  117.  
  118. (set #browser-help
  119. (cat    "Please select a program that can display AmigaGuide files. "
  120.         "This should be AmigaGuide or Multiview. As a last resort, "
  121.         "select MORE or Ed, that can be found in the Utilities or "
  122.         "C: drawer of your workbench disk."
  123. ))
  124.  
  125. (set #copy-extras
  126. (cat    "Shall I install the BenchTrash extras?"
  127. ))
  128.  
  129. (set #copy-extras-help
  130. (cat    "The Extras programs can be used to unmount a volume "
  131.         "by dragging its icon onto the benchtrash. They consist "
  132.         "of one script and one tiny program.\n"
  133.         "The script will be copied to the S: drawer and "
  134.         "the command will go into C:.\n"
  135.         "Please consult the ReadMe file in the Extras drawer "
  136.         "in this archive on how to use them."
  137. ))
  138.  
  139.  
  140. (set #exit-not-found
  141. (cat    "Unable to find your file \"%s\" - DOS error %ld "
  142.         "- installation aborted. "
  143. ))
  144.  
  145. (set #exit-text
  146. (cat    "Installation of BenchTrash done. Hope you enjoy it..."
  147. ))
  148.  
  149. ;==========================================================================
  150. ;say hi !
  151. (welcome)
  152.  
  153. ;==========================================================================
  154. ; now copy BenchTrash to target
  155.  
  156. (set #target    (askdir (prompt #which-disk)
  157.                         (help   #which-disk-help)
  158.                         (default "SYS:WBStartup")
  159.                 )
  160. )
  161.  
  162. (set @default-dest #target)
  163.  
  164. (copyfiles
  165.         (source "BenchTrash")
  166.         (infos)
  167.         (noposition)
  168.         (dest #target)
  169. )
  170.  
  171. ;===========================================================================
  172. ;Install newicons ?
  173. (complete 20)
  174.  
  175. (set #pi-bt-newicons
  176.         (askbool        (prompt #bt-newicons)
  177.                         (help #bt-newicons-help)
  178.                         (default 0)
  179.                         (choices #yes #no)
  180.         )
  181. )
  182.  
  183. (if #pi-bt-newicons
  184.         (copyfiles
  185.                 (source "NewIcons/BenchTrash.info")
  186.                 (dest #target)
  187.         )
  188. )
  189.  
  190.  
  191. (set #pi-trash-newicons
  192.         (askbool        (prompt #trash-newicons)
  193.                         (help #trash-newicons-help)
  194.                         (default 0)
  195.                         (choices #yes #no)
  196.         )
  197. )
  198.  
  199. (if #pi-trash-newicons
  200.         (copyfiles
  201.                 (source "NewIcons/Trashcan.info")
  202.                 (dest "SYS:Trashcan.info")
  203.         )
  204. )
  205.  
  206. ;==========================================================================
  207. (complete 20)
  208. ;add language-specific if 2.1 or higher
  209. (if (>= #version 38)
  210.         ;then
  211.         (
  212.                 (set #language (askoptions      (prompt #do-locale)
  213.                                                 (help #locale-help)
  214.                                                 (default -1)
  215.                                                 (choices "English"
  216.                                                          "Deutsch"
  217.                                                          "Italiano"
  218.                                                          "Français"
  219.                                                          "Greek"
  220.                                                          "Svenska"
  221.                                                          "suomi"
  222.                                                          "Español"
  223.                                                          "Norsk"
  224.                                                          "ÃeÓtina"
  225.                                                          "Português"
  226.                                                          "Türkçe"
  227.                                                 )
  228.                                 )
  229.                 )
  230.  
  231.                 (if (IN #language 1)
  232.                         (if (exists "LOCALE:Catalogs/Deutsch")
  233.                                 (copyfiles
  234.                                         (source "Deutsch/BenchTrash.catalog")
  235.                                         (dest   "LOCALE:Catalogs/Deutsch/")
  236.                                 )
  237.                         )
  238.                 )
  239.  
  240.                 (if (IN #language 2)
  241.                         (if (exists "LOCALE:Catalogs/Italiano")
  242.                                 (copyfiles
  243.                                         (source "Italiano/BenchTrash.catalog")
  244.                                         (dest   "LOCALE:Catalogs/Italiano/")
  245.                                 )
  246.                         )
  247.                 )
  248.  
  249.                 (if (IN #language 3)
  250.                         (if (exists "LOCALE:Catalogs/Français")
  251.                                 (copyfiles
  252.                                         (source "Français/BenchTrash.catalog")
  253.                                         (dest   "LOCALE:Catalogs/Français/")
  254.                                 )
  255.                         )
  256.                 )
  257.  
  258.                 (if (IN #language 4)
  259.                         (if (exists "LOCALE:Catalogs/Greek")
  260.                                 (copyfiles
  261.                                         (source "Greek/BenchTrash.catalog")
  262.                                         (dest   "LOCALE:Catalogs/Greek/")
  263.                                 )
  264.                         )
  265.                 )
  266.  
  267.                 (if (IN #language 5)
  268.                         (if (exists "LOCALE:Catalogs/Svenska")
  269.                                 (copyfiles
  270.